inherited dtmcw_CustBalance: Tdtmcw_CustBalance
  OldCreateOrder = True
  Left = 405
  Top = 320
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_cw_CustBalance where 0=0'
    object adsMasterID: TIntegerField
      DisplayLabel = #20027#38190'ID'
      FieldName = 'ID'
    end
    object adsMasterBillNo: TStringField
      DisplayLabel = #26399#21021#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterBillDate: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterFinanceID: TStringField
      DisplayLabel = #36130#21153#26399#38388'ID'
      FieldName = 'FinanceID'
    end
    object adsMasterFinanceCode: TStringField
      DisplayLabel = #36130#21153#26399#38388#32534#30721
      FieldName = 'FinanceCode'
      Size = 10
    end
    object adsMasterFinanceName: TStringField
      DisplayLabel = #36130#21153#26399#38388
      FieldName = 'FinanceName'
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterCustID: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
    end
    object adsMasterCustCode: TStringField
      DisplayLabel = #23458#25143#32534#30721
      FieldName = 'CustCode'
    end
    object adsMasterCustShortName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'CustShortName'
    end
    object adsMasterMoney: TFloatField
      DisplayLabel = #26399#21021#20313#39069
      FieldName = 'Money'
    end
    object adsMasterPreMoney: TFloatField
      DisplayLabel = #39044#25910#20313#39069
      FieldName = 'PreMoney'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from cw_CustBalance'
    object adsMasterEditID: TAutoIncField
      DisplayLabel = #20027#38190'ID'
      FieldName = 'ID'
    end
    object adsMasterEditBillNo: TStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'BillNo'
    end
    object adsMasterEditBillDate: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterEditFinanceID: TStringField
      DisplayLabel = #36130#21153#26399#38388'ID'
      FieldName = 'FinanceID'
      OnChange = adsMasterEditFinanceIDChange
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditCustID: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
    end
    object adsMasterEditMoney: TFloatField
      DisplayLabel = #26399#21021#20313#39069
      FieldName = 'Money'
    end
    object adsMasterEditPreMoney: TFloatField
      DisplayLabel = #39044#25910#20313#39069
      FieldName = 'PreMoney'
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
    object adsMasterEditres_FinanceName: TStringField
      DisplayLabel = #36130#21153#26399#38388
      FieldKind = fkLookup
      FieldName = 'res_FinanceName'
      LookupDataSet = res_FinancePeriod
      LookupKeyFields = 'FinanceID'
      LookupResultField = 'FinanceName'
      KeyFields = 'FinanceID'
      Lookup = True
    end
    object adsMasterEditres_CustName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_CustName'
      LookupDataSet = res_Customer
      LookupKeyFields = 'CustID'
      LookupResultField = 'CustShortName'
      KeyFields = 'CustID'
      Lookup = True
    end
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'#13#10'and isnull(b' +
      '.HasStop,0)=0'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 464
    Top = 40
  end
  object res_FinancePeriod: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select FinanceID, FinanceCode, FinanceName from cw_FinancePeriod'
    Parameters = <>
    Left = 192
    Top = 104
  end
  object ads_FinancePeriod: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'select FinanceID, FinanceCode, FinanceName from V_cw_FinancePeri' +
      'odTree'#13#10'where isnull(HasCheck,0)=1 and isnull(HasStop,0)=0'#13#10'orde' +
      'r by FinanceCode'
    Parameters = <>
    Left = 328
    Top = 112
  end
  object res_Customer: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select CustID, CustCode, CustShortName, CustFullName from V_da_C' +
      'ustomer'
    Parameters = <>
    Left = 192
    Top = 40
  end
end
